home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibt40s1.arc / DISPLAYT.MOD < prev    next >
Text File  |  1987-05-02  |  4KB  |  152 lines
  1. (*----------------------------------------------------------------------*)
  2. (*              Display_Timers --- Display session timers               *)
  3. (*----------------------------------------------------------------------*)
  4.  
  5. PROCEDURE Display_Timers;
  6.  
  7. VAR
  8.    Ch: CHAR;
  9.    Y1: INTEGER;
  10.    Y2: INTEGER;
  11.    Y3: INTEGER;
  12.    Y4: INTEGER;
  13.  
  14. (*----------------------------------------------------------------------*)
  15.  
  16. PROCEDURE Update_Timers;
  17.  
  18. BEGIN (* Update_Timers *)
  19.  
  20.    WriteSXY( TimeString( TimeDiff( Session_Start_Time , TimeOfDay ),
  21.                          Military_Time ),
  22.              58, Y1 + 5, Menu_Text_Color );
  23.  
  24.    IF Async_Carrier_Detect THEN
  25.       WriteSXY( TimeString( TimeDiff( Dialing_Start_Time , TimeOfDay ),
  26.                             Military_Time ),
  27.                 58, Y2 + 5, Menu_Text_Color );
  28.  
  29.    WriteSXY( TimeString( TimeOfDay , Time_Format ), 25, Y3 + 5,
  30.              Menu_Text_Color );
  31.  
  32.    WriteSXY( DateString, 25, Y3 + 6, Menu_Text_Color );
  33.  
  34. END   (* Update_Timers *);
  35.  
  36. (*----------------------------------------------------------------------*)
  37.  
  38. BEGIN (* Display_Timers *)
  39.  
  40.    Save_Partial_Screen( Saved_Screen, 5, 5, 75, 23 );
  41.  
  42.    Draw_Menu_Frame( 5, 5, 75, 23, Menu_Frame_Color,
  43.                     Menu_Title_Color, Menu_Text_Color,
  44.                     'Display session information' );
  45.  
  46.    TextColor( Menu_Text_Color_2 );
  47.  
  48.    IF Async_Carrier_Detect THEN
  49.       BEGIN
  50.          WRITE  ('Current host system : ');
  51.          TextColor( Menu_Text_Color );
  52.          WRITELN( Phone_Entry_Data.Phone_Name   );
  53.          TextColor( Menu_Text_Color_2 );
  54.          WRITE  ('Current phone number: ');
  55.          TextColor( Menu_Text_Color );
  56.          WRITELN( LTrim( Phone_Entry_Data.Phone_Number ) );
  57.       END
  58.    ELSE
  59.       BEGIN
  60.          WRITE  ('Current host system :  ');
  61.          TextColor( Menu_Text_Color );
  62.          WRITELN('*** None ***');
  63.          TextColor( Menu_Text_Color_2 );
  64.          WRITE  ('Current phone number:  ');
  65.          TextColor( Menu_Text_Color );
  66.          WRITELN('*** None ***');
  67.       END;
  68.  
  69.    WRITELN;
  70.  
  71.    TextColor( Menu_Text_Color_2 );
  72.  
  73.    WRITE('Elapsed time since PibTerm started      : ');
  74.  
  75.    Y1 := WhereY;
  76.    WRITELN;
  77.  
  78.    IF Async_Carrier_Detect THEN
  79.       BEGIN
  80.          WRITE('Elapsed time since current session began: ');
  81.          Y2 := WhereY;
  82.       END
  83.    ELSE
  84.       WRITELN;
  85.  
  86.    WRITELN;
  87.  
  88.    WRITE  ('Available heap space in bytes: ');
  89.  
  90.    TextColor( Menu_Text_Color );
  91.    WRITELN( MaxBlockAvail:8:0 );
  92.  
  93.    TextColor( Menu_Text_Color_2 );
  94.  
  95.    WRITELN;
  96.    WRITE('Current time: ');
  97.    Y3 := WhereY;
  98.    WRITELN;
  99.    WRITELN('Current date: ');
  100.  
  101.    Update_Timers;
  102.  
  103.    TextColor( Menu_Text_Color_2 );
  104.  
  105.    WRITELN;
  106.    WRITE('Current capture file name: ');
  107.  
  108.    TextColor( Menu_Text_Color );
  109.  
  110.    IF Capture_On THEN
  111.       WRITELN( Capture_File_Name )
  112.    ELSE
  113.       WRITELN('*** None ***');
  114.  
  115.    TextColor( Menu_Text_Color_2 );
  116.  
  117.    WRITE('Current script name      : ');
  118.  
  119.    TextColor( Menu_Text_Color );
  120.  
  121.    IF Script_File_Mode THEN
  122.       WRITELN( Scripts[Current_Script_Num].Script_Name )
  123.    ELSE
  124.       WRITELN('*** None ***');
  125.  
  126.    TextColor( Menu_Text_Color_2 );
  127.  
  128.    WRITELN;
  129.    WRITE  ('Enter C to clear dialing session timer, hit ESC to continue ... ');
  130.  
  131.    WHILE ( NOT KeyPressed ) DO
  132.       BEGIN
  133.          Update_Timers;
  134.          GiveAwayTime( 1 );
  135.       END;
  136.  
  137.    Read_Kbd( Ch );
  138.  
  139.    IF ( ORD( Ch ) = ESC ) AND KeyPressed THEN
  140.       READ( Kbd , Ch )
  141.    ELSE
  142.       BEGIN
  143.          IF UpCase( Ch ) = 'C' THEN
  144.             Dialing_Start_Time := TimeOfDay;
  145.          Write_Log('Dialing session timer reset.', FALSE, FALSE);
  146.       END;
  147.  
  148.    Restore_Screen( Saved_Screen );
  149.    Reset_Global_Colors;
  150.  
  151. END   (* Display_Timers *);
  152.